home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / MacFormat 92 CD / Shareware Plus / Utilities / FolderSynchronizer 1.8.9 / FoldersSynchronizer / FoldersSynchronizer.9 / AllScripts_38_ScrDecreaseTimer.ls < prev    next >
Encoding:
Text File  |  2000-05-10  |  1.3 KB  |  51 lines
  1. on mouseDown me
  2.   set mySprite to the spriteNum of me
  3.   set myTextMember to the name of member the member of sprite (mySprite - 2)
  4.   case myTextMember of
  5.     "fStartMonth":
  6.       set MinValore to 1
  7.     "fStartDay":
  8.       set MinValore to 1
  9.     "fStartYear":
  10.       set MinValore to TodayYear()
  11.     otherwise:
  12.       set MinValore to 0
  13.   end case
  14.   set Valore to value(field myTextMember)
  15.   if Valore <= MinValore then
  16.     exit
  17.   end if
  18.   if the rollOver <> mySprite then
  19.     exit
  20.   end if
  21.   set myBtnUp to the name of member the member of sprite mySprite
  22.   if Valore > MinValore then
  23.     set the member of sprite mySprite to BtnDw(myBtnUp)
  24.     updateStage()
  25.     set Valore to Valore - 1
  26.     put Valore into field myTextMember
  27.   end if
  28.   repeat with i = 1 to 5000
  29.     if the mouseUp then
  30.       set the member of sprite mySprite to myBtnUp
  31.       updateStage()
  32.       exit
  33.     end if
  34.   end repeat
  35.   repeat while the stillDown and (Valore > MinValore)
  36.     if the rollOver = mySprite then
  37.       set the member of sprite mySprite to BtnDw(myBtnUp)
  38.       set Valore to value(field myTextMember) - 1
  39.       if Valore < MinValore then
  40.         exit repeat
  41.       end if
  42.       put Valore into field myTextMember
  43.     else
  44.       set the member of sprite mySprite to myBtnUp
  45.     end if
  46.     updateStage()
  47.   end repeat
  48.   set the member of sprite mySprite to myBtnUp
  49.   updateStage()
  50. end
  51.